home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 5-Fonts & Software / Applications / DesignStudio / DesignStudio™ 1.01 / DesignStudio™ 1.01.rsrc / MGPS_192 < prev    next >
Text File  |  1990-08-09  |  9KB  |  35 lines
  1.  /DesignStudioDict 100 dict def DesignStudioDict begin /bdf{bind def}bind def /.notdef{}def /mgfmv true def/mgmtx matrix def/mgs8 8 string def/mgs75 75 string def/mg6 6 array def 1 0 mgmtx defaultmatrix dtransform exch atan/mgpa exch def/mgpor true def currentscreen/spf exch def/rot exch def/freq exch def/mgjn{/statusdict where exch pop{statusdict exch/jobname exch put}if}bdf/mgpfnt{ /mgfnt 7 dict dup begin/FontType 3 def/FontMatrix[8 0 0 -8 0 8]def /FontBBox [0 0 1 1] def/Encoding 256 array def 0 1 255{Encoding exch /.notdef put}for /BuildChar{pop begin 1 0 0 0 1 1 setcachedevice gsave 8 8 true[8 0 0 -8 0 8]mgxx imagemask grestore end}def end definefont pop}def /mgpt{/mgxx exch def}def /mgptf{ mgpfnt/mgfnt findfont setfont 3 dict begin /w 8 def/h 8 def/s(.rumpelstiltskin.)def clip pathbbox h div ceiling h mul 4 1 roll w div ceiling w mul 4 1 roll h div floor h mul 4 1 roll w div floor w mul 4 1 roll 2 index sub h div ceiling cvi exch 3 index sub w div ceiling cvi exch 4 2 roll moveto {gsave dup s length idiv {s show}repeat dup s length mod s exch 0 exch getinterval show grestore 0 h rmoveto}repeat pop end newpath}bdf /mgfsc{mtx currentmatrix aload pop 7 -1 roll dup scale}bdf /mgfscr{mtx astore setmatrix}bdf /mgcpct{ currenthsbcolor 4 -1 roll 3 -1 roll mul exch sethsbcolor}bdf /mg8 8 string def /mgpat{ mg8 copy pop 9.375 pa por not{90 add}if {1 add 4 mul cvi mg8 exch get exch 1 add 4 mul cvi 7 sub bitshift 1 and} setscreen gr}bdf /mgas{ 0. 32 4 -1 roll 0. 6 -1 roll awidthshow}bdf /mgaas{ 3 index dup gsave newpath 0 0 moveto 0 0 lineto closepath clip stringwidth grestore pop 3 -1 roll exch sub exch mgs? dup 0 eq{pop 3 index length 1 sub dup 0 gt{div}{pop pop 0.}ifelse 3 -1 roll add exch}{div add}ifelse mgas}bdf /mgtlc{ dup 3 1 roll stringwidth pop dup currentpoint pop exch mgfmod exch dup 3 -1 roll sub dup 3 1 roll 0 rmoveto 3 1 roll sub exch div cvi dup 0 gt{{dup show}repeat pop}{pop pop}ifelse}bdf /mgfmod{ 2 copy div cvi mul sub}bdf /mgp4{ pop pop pop pop}bdf /mgs?{ 0. exch{32 eq{1. add}if}forall}bdf /mgsz{ currentfont exch scalefont setfont}bdf /mgflags(thumper)def mgflags 0 0 put/mgcol(ˇˇˇ)def/mgccol(rgb)def mgflags 2 1 put /mgcoo{mgflags 0 get 0 ne{currentlinewidth .5 mul dup}{0 0}ifelse}bdf/mgcia{mgflags 0 get 0 ne{2{currentlinewidth sub exch}repeat}if}bdf/mgr{ matrix currentmatrix 3 1 roll newpath mgcoo translate mgcia 0 0 moveto dup 0 exch lineto 2 copy lineto pop 0 lineto closepath setmatrix}bdf /mgrr{ matrix currentmatrix 5 1 roll newpath mgcoo translate mgcia 4 dict begin{/d/w/rv/rh}{exch def}forall d 0.0 eq{/d 1 def}if w 0.0 eq{/w 1 def}if rv 0 moveto w 0 w d rv arcto mgp4 w d 0 d rh arcto mgp4 0 d 0 0 rv arcto mgp4 0 0 w 0 rh arcto mgp4 closepath end setmatrix}bdf /mgov{ matrix currentmatrix 3 1 roll mgcoo translate mgcia 0 0 moveto scale .5 .5 translate newpath 0 0 .5 0 360 arc closepath setmatrix}bdf /mgtri{ newpath moveto lineto lineto closepath}bdf /mgparl{ newpath moveto lineto lineto lineto closepath}bdf /mgarr{ newpath moveto rlineto rlineto rlineto closepath}bdf /mgoct{ 6 dict begin/d exch def/w exch def /d2 d 2 div def/d4 d 4 div def /w2 w 2 div def/w4 w 4 div def newpath w4 0 moveto w2 0 rlineto w4 d4 rlineto 0 d2 rlineto w4 neg d4 rlineto w2 neg 0 rlineto w4 neg d4 neg rlineto 0 d2 neg rlineto closepath end}bdf /mggrkp{gsave 0 setgray 2 copy 0 0 moveto lineto exch 0 moveto 0 exch lineto stroke grestore}bdf /mgls{ exch pop abs 1 exch sub}bdf /mgss{ 0 eq{systemdict/currentcolorscreen known{/dkspf}{/spf}ifelse}{/mgls}ifelse load setscreen}bdf /mgrs{ systemdict/currentcolorscreen known {dcfreq dcrot/dcspf load dmfreq dmrot/dmspf load dyfreq dyrot/dyspf load dkfreq dkrot/dkspf load setcolorscreen} {freq rot/spf load setscreen}ifelse}bdf /mgcrop{0 eq {pop pop pop pop} {4 dict begin{/docd/docw}{exch def}forall /croplen 18 def/cropoff 10 def gsave initgraphics translate 0. setgray .25 setlinewidth cropoff neg docd moveto croplen neg 0 rlineto 0 docd cropoff add moveto 0 croplen rlineto docw cropoff add docd moveto croplen 0 rlineto docw docd cropoff add moveto 0 croplen rlineto cropoff neg 0 moveto croplen neg 0 rlineto 0 cropoff neg moveto 0 croplen neg rlineto docw cropoff add 0 moveto croplen 0 rlineto docw cropoff neg moveto 0 croplen neg rlineto stroke end grestore}ifelse}bdf  mgflags 1 1 put/nc{mgflags 1 get 0 ne{}{md/nc get exec}ifelse}def/kp{mgflags 1 get 0 ne{pop}{md/kp get exec}ifelse}def/bn{md/bn get exec mgclpth 119 get 0 ne{currentpoint mgclpth dup 119 get 0 exch getinterval cvx exec moveto}{}ifelse}def/mgkp{mgclpth 0 2 index length 2 index 119 2 index put getinterval copy cvx exec}def/mgclpth 120 string def mgclpth 119 0 put/mgps{currentpoint currentlinewidth currentlinecap currentlinejoin currentdash exch aload length fg 5 sfl{1}{0}ifelse put pnsv pnsh 2t aload pop 3a aload pop mx2 aload pop mx1 aload pop mtx currentmatrix aload pop}def/mgpr{mtx astore setmatrix mx1 astore pop mx2 astore pop 3a astore pop 2t astore pop/pnsh xdf/pnsv xdf gw /sfl fg 5 get 0 ne def array astore exch setdash setlinejoin setlinecap setlinewidth moveto}def /gl{mgflags 2 get 0 eq{md/gl get exec}{mgsvccol mgccol 0 3 getinterval mgcol 3 3 getinterval ne{mgsvcol mgincol}{mgssvcol}ifelse}ifelse}def/mgsvcol{currentrgbcolor 2 -1 0{exch 255 mul cvi mgcol 3 1 roll put}for}bdf/mgsvccol{currentrgbcolor 2 -1 0{exch 255 mul cvi mgccol 3 1 roll put}for}bdf/mgssvcol{0 1 2{mgcol exch get 255. div}for setrgbcolor}bdf/mgincol{3 1 5{mgcol exch get 255. div}for setrgbcolor}bdf/blank/Times-Roman findfont/CharStrings get/space get def
  2. /macvec 256 array def
  3. /NUL/SOH/STX/ETX/EOT/ENQ/ACK/BEL/BS/HT/LF/VT/FF/CR/SO/SI
  4. /DLE/DC1/DC2/DC3/DC4/NAK/SYN/ETB/CAN/EM/SUB/ESC/FS/GS/RS/US
  5.  macvec 0 32 getinterval astore pop
  6.  macvec 32/Times-Roman findfont/Encoding get
  7.  32 96 getinterval putinterval macvec dup 39/quotesingle put 96/grave put
  8. /Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis/Udieresis/aacute/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute/egrave/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde/oacute/ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex/udieresis
  9. /dagger/degree/cent/sterling/section/bullet/paragraph/germandbls/registered/copyright/trademark/acute/dieresis/notequal/AE/Oslash/infinity/plusminus/lessequal/greaterequal/yen/mu/partialdiff/summation/product/pi/integral/ordfeminine/ordmasculine/Omega/ae/oslash
  10. /questiondown/exclamdown/logicalnot/radical/florin/approxequal/Delta/guillemotleft/guillemotright/ellipsis/blank/Agrave/Atilde/Otilde/OE/oe/endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide/lozenge/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright/fi/fl
  11. /daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand/Acircumflex/Ecircumflex/Aacute/Edieresis/Egrave/Iacute/Icircumflex/Idieresis/Igrave/Oacute/Ocircumflex/apple/Ograve/Uacute/Ucircumflex/Ugrave/dotlessi/circumflex/tilde/macron/breve/dotaccent/ring/cedilla/hungarumlaut/ogonek/caron
  12.  macvec 128 128 getinterval astore pop
  13. /mgcf{{1 index/FID ne{def}{pop pop}ifelse}forall}bdf
  14. /mgmacv{ /@1 exch def/@2 exch def FontDirectory @2 known{cleartomark pop} {findfont dup begin dup length @1 add dict begin mgcf{/Encoding macvec def}{Encoding dup length array copy/Encoding exch def counttomark 2 idiv{Encoding 3 1 roll put}repeat}ifelse pop exec currentdict end end @2 exch definefont pop}ifelse}bdf
  15. /mgfset{ findfont exch dup dup/mgps exch def neg 0 0 3 -1 roll 0 0 mg6 astore makefont setfont}bdf
  16. /mgswsym{{}mark false/Symbol/mg_Symbol 0 mgmacv mgps/mg_Symbol mgfset}bdf
  17. /sa()def
  18. /bt{sa 3 1 roll 3 index and put}bdf
  19. /fs{0 1 bt 1 2 bt 2 4 bt 3 8 bt 4 16 bt 5 32 bt 6 64 bt 7 128 bt sa exch 8 exch put}bdf
  20. /mc{0 3 1 roll transform neg exch pop}bdf
  21. /sgt{2 copy known{get true}{pop pop false}ifelse}bdf
  22. /kif{ currentfont dup/FontMatrix get exch/FontInfo sgt{true}{currentfont/df sgt{ dup/FontInfo sgt{3 1 roll/FontMatrix get mgmtx concatmatrix exch true}{pop pop pop false} ifelse}{pop pop false}ifelse}ifelse{3 -1 roll sgt{exch true}{pop false}ifelse}{false}ifelse}bdf
  23. /gl{1 currentgray sub setgray}bdf
  24. /ul{ dup 0 ne sa 2 get 0 ne and{gsave 0 0/UnderlinePosition kif{mc}{mgps -10 div}ifelse /UnderlineThickness kif{mc}{mgps 15 div}ifelse abs setlinewidth neg rmoveto sa 4 get 0 ne{gsave currentlinewidth 2. div dup rmoveto currentpoint newpath moveto 2 copy rlineto stroke grestore}if sa 3 get sa 4 get or 0 ne {gsave gl 2 copy rlineto stroke grestore rlineto strokepath .24 1. div setlinewidth}{rlineto}ifelse stroke grestore}{pop}ifelse}bdf
  25. /smc{moveto dup show}bdf
  26. /wd 16 dict def /mfont 14 dict def
  27. /mgsos{mgs75 cvs dup 3 79 put cvn}bdf
  28. /mgscs{mgs75 cvs dup 3 67 put dup 0 95 put cvn}bdf
  29. /mgkwn{FontDirectory 1 index known {findfont exch pop}}bdf
  30. /ac{ dup mgscs mgkwn{exch findfont dup length 1 add dict begin{ 1 index/FID ne 2 index/UniqueID ne and{def}{pop pop}ifelse}forall mgfmv{/Encoding macvec def}if /StrokeWidth .24 1000 mul 1. div mgps div dup 12 lt{pop 12}if def /PaintType 2 def currentdict end definefont}ifelse}bdf
  31. /mm{/mfont 10 dict def mfont begin/FontMatrix[1 0 0 1 0 0]def/FontType 3 def /Encoding macvec def/df 4 index findfont def/FontBBox[0 0 1 1]def/xda xdf/mbc xdf/BuildChar{ wd begin/cr xdf/fd xdf/cs s1 dup 0 cr put def fd/mbc get exec end}def exec end mfont definefont}bdf
  32. /aoc{ fd/df get setfont gsave cs wi grestore setcharwidth gl cs 0 0 smc fd/df2 get setfont gl 0 0 moveto show}bdf
  33. /mgoutlf{/mgfmv true def mgou}bdf
  34. /mgou{}bdf
  35.